<!DOCTYPE html>
<html class="client-nojs vector-feature-night-mode-disabled vector-feature-language-in-header-enabled vector-feature-language-in-main-page-header-disabled vector-feature-page-tools-pinned-disabled vector-feature-toc-pinned-clientpref-1 vector-feature-main-menu-pinned-disabled vector-feature-limited-width-clientpref-1 vector-feature-limited-width-content-enabled vector-feature-custom-font-size-clientpref-1 vector-feature-appearance-pinned-clientpref-1 vector-sticky-header-enabled" lang="en" dir="ltr"><head>
<meta charset="UTF-8">
<title>Control Program Facility</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<link rel="canonical" href="https://en.wikipedia.org/wiki/Control_Program_Facility"> <link href="./mw/ext.cite.styles.css" rel="stylesheet" type="text/css">
<link href="./mw/skins.vector.icons.css" rel="stylesheet" type="text/css">
<link href="./mw/skins.vector.search.codex.styles.css" rel="stylesheet" type="text/css">
<link href="./mw/skins.vector.styles.css" rel="stylesheet" type="text/css">
<link href="./mw/user.styles.css" rel="stylesheet" type="text/css">
<meta name="ResourceLoaderDynamicStyles" content="">
<link rel="stylesheet" type="text/css" href="./mw/site.styles.css">
<link rel="stylesheet" type="text/css" href="./mw/noscript.css">
<link rel="stylesheet" type="text/css" href="./footer.css">
<link rel="stylesheet" type="text/css" href="./vector-2022.css">
</head>
<body class="skin--responsive skin-vector skin-vector-search-vue mediawiki ltr sitedir-ltr mw-hide-empty-elt ns-0 ns-subject page-Control_Program_Facility rootpage-Control_Program_Facility skin-vector-2022 action-view">
<div class="mw-page-container">
<div class="mw-page-container-inner">
<div class="mw-content-container">
<main id="content" class="mw-body">
<header class="mw-body-header vector-page-titlebar">
<h1 id="firstHeading" class="firstHeading mw-first-heading">
<span id="openzim-page-title" class="mw-page-title-main"><span class="mw-page-title-main">Control Program Facility</span></span>
</h1>
</header>
<a id="top"></a>
<div id="bodyContent" class="vector-body ve-init-mw-desktopArticleTarget-targetContainer" aria-labelledby="firstHeading" data-mw-ve-target-container="">
<div id="mw-content-text" class="mw-body-content mw-content-ltr" lang="en" dir="ltr"><div class="mw-content-ltr mw-parser-output" lang="en" dir="ltr">
<style data-mw-deduplicate="TemplateStyles:r1295905060">
/* start https://en.wikipedia.org/ */
.mw-parser-output .infobox-subbox{padding:0;border:none;margin:-3px;width:auto;min-width:100%;font-size:100%;clear:none;float:none;background-color:transparent}.mw-parser-output .infobox-3cols-child{margin:auto}.mw-parser-output .infobox .navbar{font-size:100%}@media screen{html.skin-theme-clientpref-night .mw-parser-output .infobox-full-data:not(.notheme)>div:not(.notheme)[style]{background:#1f1f23!important;color:#f8f9fa}}@media screen and (prefers-color-scheme:dark){html.skin-theme-clientpref-os .mw-parser-output .infobox-full-data:not(.notheme)>div:not(.notheme)[style]{background:#1f1f23!important;color:#f8f9fa}}@media(min-width:640px){body.skin--responsive .mw-parser-output .infobox-table{display:table!important}body.skin--responsive .mw-parser-output .infobox-table>caption{display:table-caption!important}body.skin--responsive .mw-parser-output .infobox-table>tbody{display:table-row-group}body.skin--responsive .mw-parser-output .infobox-table th,body.skin--responsive .mw-parser-output .infobox-table td{padding-left:inherit;padding-right:inherit}}
/* end https://en.wikipedia.org/ */
</style><table class="infobox vevent"><tbody><tr><th colspan="2" class="infobox-above" style="background-color: #e0e0e0;">Control Program Facility (CPF)</th></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;"><a href="Programmer" title="Programmer">Developer</a></th><td class="infobox-data"><a href="IBM" title="IBM">IBM</a></td></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;"><a href="Programming_language" title="Programming language">Written in</a></th><td class="infobox-data"><a href="PL/I" title="PL/I">PL/MI</a><sup id="cite_ref-inside-as400_1-0" class="reference"><a href="#cite_note-inside-as400-1"><span class="cite-bracket">[</span>1<span class="cite-bracket">]</span></a></sup></td></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;">Working state</th><td class="infobox-data">Discontinued</td></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;">Source model</th><td class="infobox-data">Closed Source</td></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;">Initial release</th><td class="infobox-data">1978<span style="display:none"> (<span class="bday dtstart published updated">1978</span>)</span></td></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;"><a href="Software_release_life_cycle" title="Software release life cycle">Latest release</a></th><td class="infobox-data">Release 8 / 14 November 1986<span style="display:none"> (<span class="bday dtstart published updated">1986-11-14</span>)</span><sup id="cite_ref-2" class="reference"><a href="#cite_note-2"><span class="cite-bracket">[</span>2<span class="cite-bracket">]</span></a></sup></td></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;">Supported platforms</th><td class="infobox-data"><a href="IBM_System/38" title="IBM System/38">IBM System/38</a></td></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;"><a href="User_interface" title="User interface">Default<br>user interface</a></th><td class="infobox-data"><a href="Command-line_interface" title="Command-line interface">Command-line interface</a></td></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;"><a href="Software_license" title="Software license">License</a></th><td class="infobox-data"><a href="Proprietary_software" title="Proprietary software">Proprietary</a></td></tr><tr><th scope="row" class="infobox-label" style="white-space: nowrap;">Succeeded by</th><td class="infobox-data"><a href="OS/400" class="mw-redirect" title="OS/400">OS/400</a></td></tr></tbody></table>
<p><b>Control Program Facility</b> (<b>CPF</b>) is the <a href="Operating_system" title="Operating system">operating system</a> of the <a href="IBM_System/38" title="IBM System/38">IBM System/38</a>.<sup id="cite_ref-3" class="reference"><a href="#cite_note-3"><span class="cite-bracket">[</span>3<span class="cite-bracket">]</span></a></sup> CPF represented an independendent line of development at <a href="IBM_Rochester" title="IBM Rochester">IBM Rochester</a>, and was unrelated to the earlier and more widely used <a href="System_Support_Program" title="System Support Program">System Support Program</a> operating system. CPF evolved into the <a href="OS/400" class="mw-redirect" title="OS/400">OS/400</a> operating system, which was originally known as <b>XPF</b> (Extended CPF).<sup id="cite_ref-inside-as400_1-1" class="reference"><a href="#cite_note-inside-as400-1"><span class="cite-bracket">[</span>1<span class="cite-bracket">]</span></a></sup>
</p><p>While CPF is considered to be the operating system of the System/38, much of the hardware and resource management of the platform is implemented in the System/38's <a href="System/38" class="mw-redirect" title="System/38">Horizontal and Vertical Microcode</a>.<sup id="cite_ref-inside-as400_1-2" class="reference"><a href="#cite_note-inside-as400-1"><span class="cite-bracket">[</span>1<span class="cite-bracket">]</span></a></sup><sup id="cite_ref-4" class="reference"><a href="#cite_note-4"><span class="cite-bracket">[</span>4<span class="cite-bracket">]</span></a></sup>
</p>
<meta property="mw:PageProp/toc">
<div class="mw-heading mw-heading2"><h2 id="Description_of_the_libraries">Description of the libraries</h2></div>
<ul><li>QGPL – general purpose library</li>
<li>QSYS – system library</li>
<li>QSPL – spooling library</li>
<li>QTEMP – temporary library</li>
<li>QSRV – system service library</li>
<li>QRECOVERY – system recovery library</li></ul>
<div class="mw-heading mw-heading2"><h2 id="Data_storage">Data storage</h2></div>
<p>In most computers prior to the System/38, and most modern ones, data stored on disk was stored in separate logical <a href="Computer_file" title="Computer file">files</a>. When data was added to a file it was written in the sector dedicated to this, or if the sector was full, on a new sector somewhere else.
</p><p>The System/38 adopted the <a href="Single-level_store" title="Single-level store">single-level store</a> architecture, where main storage and disk storage are organized as one, from the abandoned <a href="IBM_Future_Systems_project" title="IBM Future Systems project">IBM Future Systems project</a> (FS).<sup id="cite_ref-5" class="reference"><a href="#cite_note-5"><span class="cite-bracket">[</span>5<span class="cite-bracket">]</span></a></sup> Every piece of data was stored separately and could be put anywhere on the system. There was no such thing as a physically contiguous file on disk, and the operating system managed the storage and recall of all data elements.
</p>
<div class="mw-heading mw-heading2"><h2 id="Capability-based_addressing">Capability-based addressing</h2></div>
<p>CPF was an example of a commercially available <a href="Capability-based_operating_system" title="Capability-based operating system">capability-based operating system</a>. System/38 was one of the few commercial computers with <a href="Capability-based_addressing" title="Capability-based addressing">capability-based addressing</a>.<sup id="cite_ref-6" class="reference"><a href="#cite_note-6"><span class="cite-bracket">[</span>6<span class="cite-bracket">]</span></a></sup> Capability-based addressing was removed in the follow-on <a href="OS/400" class="mw-redirect" title="OS/400">OS/400</a> operating system.<sup id="cite_ref-Soltis2001_7-0" class="reference"><a href="#cite_note-Soltis2001-7"><span class="cite-bracket">[</span>7<span class="cite-bracket">]</span></a></sup>
</p>
<div class="mw-heading mw-heading2"><h2 id="Distributed_data_management">Distributed data management</h2></div>
<p>In 1986, System/38 announced support for <a href="Distributed_Data_Management_Architecture" title="Distributed Data Management Architecture">Distributed Data Management Architecture</a> (DDM). Such a <a href="Middleware_(distributed_applications)" title="Middleware (distributed applications)">middleware</a> in the context of a distributed system is the software layer that lies between the operating system and applications. Distributed Data Management Architecture defines an environment for sharing data. This enables System/38 programs to create, manage, and access record-oriented files on remote System/36, System/38, and IBM mainframe systems running CICS. It also allows programs on remote System/36 and System/38 computers to create, manage, and access files of a System/38.
</p>
<div class="mw-heading mw-heading2"><h2 id="Programming_languages">Programming languages</h2></div>
<p>Languages supported on the System/38 included <a href="RPG_III" class="mw-redirect" title="RPG III">RPG III</a>, <a href="COBOL" title="COBOL">COBOL</a>, <a href="BASIC" title="BASIC">BASIC</a>, and <a href="PL/I" title="PL/I">PL/I</a>. CPF also implements the <a href="Control_Language" title="Control Language">Control Language</a> for System/38.<sup id="cite_ref-8" class="reference"><a href="#cite_note-8"><span class="cite-bracket">[</span>8<span class="cite-bracket">]</span></a></sup>
</p>
<div class="mw-heading mw-heading2"><h2 id="References">References</h2></div>
<style data-mw-deduplicate="TemplateStyles:r1239543626">
/* start https://en.wikipedia.org/ */
.mw-parser-output .reflist{margin-bottom:0.5em;list-style-type:decimal}@media screen{.mw-parser-output .reflist{font-size:90%}}.mw-parser-output .reflist .references{font-size:100%;margin-bottom:0;list-style-type:inherit}.mw-parser-output .reflist-columns-2{column-width:30em}.mw-parser-output .reflist-columns-3{column-width:25em}.mw-parser-output .reflist-columns{margin-top:0.3em}.mw-parser-output .reflist-columns ol{margin-top:0}.mw-parser-output .reflist-columns li{page-break-inside:avoid;break-inside:avoid-column}.mw-parser-output .reflist-upper-alpha{list-style-type:upper-alpha}.mw-parser-output .reflist-upper-roman{list-style-type:upper-roman}.mw-parser-output .reflist-lower-alpha{list-style-type:lower-alpha}.mw-parser-output .reflist-lower-greek{list-style-type:lower-greek}.mw-parser-output .reflist-lower-roman{list-style-type:lower-roman}
/* end https://en.wikipedia.org/ */
</style><div class="reflist">
<div class="mw-references-wrap"><ol class="references">
<li id="cite_note-inside-as400-1"><span class="mw-cite-backlink">^ <a href="#cite_ref-inside-as400_1-0"><sup><i><b>a</b></i></sup></a> <a href="#cite_ref-inside-as400_1-1"><sup><i><b>b</b></i></sup></a> <a href="#cite_ref-inside-as400_1-2"><sup><i><b>c</b></i></sup></a></span> <span class="reference-text"><style data-mw-deduplicate="TemplateStyles:r1238218222">
/* start https://en.wikipedia.org/ */
.mw-parser-output cite.citation{font-style:inherit;word-wrap:break-word}.mw-parser-output .citation q{quotes:"\"""\"""'""'"}.mw-parser-output .citation:target{background-color:rgba(0,127,255,0.133)}.mw-parser-output .id-lock-free.id-lock-free a{background:url("./mw/Lock-green.svg")right 0.1em center/9px no-repeat}.mw-parser-output .id-lock-limited.id-lock-limited a,.mw-parser-output .id-lock-registration.id-lock-registration a{background:url("./mw/Lock-gray-alt-2.svg")right 0.1em center/9px no-repeat}.mw-parser-output .id-lock-subscription.id-lock-subscription a{background:url("./mw/Lock-red-alt-2.svg")right 0.1em center/9px no-repeat}.mw-parser-output .cs1-ws-icon a{background:url("./mw/Wikisource-logo.svg")right 0.1em center/12px no-repeat}body:not(.skin-timeless):not(.skin-minerva) .mw-parser-output .id-lock-free a,body:not(.skin-timeless):not(.skin-minerva) .mw-parser-output .id-lock-limited a,body:not(.skin-timeless):not(.skin-minerva) .mw-parser-output .id-lock-registration a,body:not(.skin-timeless):not(.skin-minerva) .mw-parser-output .id-lock-subscription a,body:not(.skin-timeless):not(.skin-minerva) .mw-parser-output .cs1-ws-icon a{background-size:contain;padding:0 1em 0 0}.mw-parser-output .cs1-code{color:inherit;background:inherit;border:none;padding:inherit}.mw-parser-output .cs1-hidden-error{display:none;color:var(--color-error,#d33)}.mw-parser-output .cs1-visible-error{color:var(--color-error,#d33)}.mw-parser-output .cs1-maint{display:none;color:#085;margin-left:0.3em}.mw-parser-output .cs1-kern-left{padding-left:0.2em}.mw-parser-output .cs1-kern-right{padding-right:0.2em}.mw-parser-output .citation .mw-selflink{font-weight:inherit}@media screen{.mw-parser-output .cs1-format{font-size:95%}html.skin-theme-clientpref-night .mw-parser-output .cs1-maint{color:#18911f}}@media screen and (prefers-color-scheme:dark){html.skin-theme-clientpref-os .mw-parser-output .cs1-maint{color:#18911f}}
/* end https://en.wikipedia.org/ */
</style><cite id="CITEREFFrank_G._Soltis1997" class="citation book cs1">Frank G. Soltis (1997). <a rel="nofollow" class="external text" href="https://books.google.com/books?id=5DoPAAAACAAJ"><i>Inside the AS/400, Second Edition</i></a>. Duke Press. <a href="ISBN_(identifier)" class="mw-redirect" title="ISBN (identifier)">ISBN</a> <bdi>978-1882419661</bdi>.</cite></span>
</li>
<li id="cite_note-2"><span class="mw-cite-backlink"><b><a href="#cite_ref-2">^</a></b></span> <span class="reference-text"><cite class="citation web cs1"><a rel="nofollow" class="external text" href="https://www-01.ibm.com/common/ssi/cgi-bin/ssialias?appname=skmwww&htmlfid=897%2FENUS286-462&infotype=AN&subtype=CA">"IBM SYSTEM/38 CONTROL PROGRAM FACILITY RELEASE 8 AVAILABLE WITH ENHANCEMENTS"</a>. IBM. 1986-10-07<span class="reference-accessdate">. Retrieved <span class="nowrap">2021-04-07</span></span>.</cite></span>
</li>
<li id="cite_note-3"><span class="mw-cite-backlink"><b><a href="#cite_ref-3">^</a></b></span> <span class="reference-text"><cite class="citation book cs1"><a rel="nofollow" class="external text" href="http://bitsavers.org/pdf/ibm/system38/IBM_System_38_Technical_Developments_Dec1978.pdf"><i>IBM System/38 Technical Developments</i></a> <span class="cs1-format">(PDF)</span>. IBM Product Design and Development, General Systems Division. 1980 [1978]. <a href="ISBN_(identifier)" class="mw-redirect" title="ISBN (identifier)">ISBN</a> <bdi>0-933186-03-7</bdi>. G580-0237-1.</cite></span>
</li>
<li id="cite_note-4"><span class="mw-cite-backlink"><b><a href="#cite_ref-4">^</a></b></span> <span class="reference-text"><cite id="CITEREFSoltis1981" class="citation journal cs1">Soltis, Frank (September 1981). <span class="id-lock-subscription" title="Paid subscription required"><a rel="nofollow" class="external text" href="https://www.computer.org/csdl/magazine/co/1981/09/01667517/13rRUwciPii">"Design of a Small Business Data Processing System"</a></span>. <i><a href="IEEE_Computer" class="mw-redirect" title="IEEE Computer">IEEE Computer</a></i>. <b>14</b>: <span class="nowrap">77–</span>93. <a href="Doi_(identifier)" class="mw-redirect" title="Doi (identifier)">doi</a>:<a rel="nofollow" class="external text" href="https://doi.org/10.1109%2FC-M.1981.220610">10.1109/C-M.1981.220610</a>. <a href="S2CID_(identifier)" class="mw-redirect" title="S2CID (identifier)">S2CID</a> <a rel="nofollow" class="external text" href="https://api.semanticscholar.org/CorpusID:398484">398484</a>.</cite></span>
</li>
<li id="cite_note-5"><span class="mw-cite-backlink"><b><a href="#cite_ref-5">^</a></b></span> <span class="reference-text"><cite id="CITEREFMark_Smotherman" class="citation web cs1">Mark Smotherman. <a rel="nofollow" class="external text" href="https://people.cs.clemson.edu/~mark/fs.html">"IBM Future System (FS) - 1970s"</a><span class="reference-accessdate">. Retrieved <span class="nowrap">October 11,</span> 2017</span>.</cite></span>
</li>
<li id="cite_note-6"><span class="mw-cite-backlink"><b><a href="#cite_ref-6">^</a></b></span> <span class="reference-text"><cite id="CITEREFLevy1984" class="citation book cs1">Levy, Henry M. (1984). <a rel="nofollow" class="external text" href="http://www.cs.washington.edu/homes/levy/capabook/Chapter8.pdf">"The IBM System/38"</a> <span class="cs1-format">(PDF)</span>. <i>Capability-Based Computer Systems</i>. Digital Press. <a href="ISBN_(identifier)" class="mw-redirect" title="ISBN (identifier)">ISBN</a> <bdi>0-932376-22-3</bdi>.</cite></span>
</li>
<li id="cite_note-Soltis2001-7"><span class="mw-cite-backlink"><b><a href="#cite_ref-Soltis2001_7-0">^</a></b></span> <span class="reference-text"><cite id="CITEREFSoltis2001" class="citation book cs1">Soltis, Frank G. (July 2001). <a rel="nofollow" class="external text" href="https://books.google.com/books?id=ypJmzqt7JdUC"><i>Fortress Rochester: The Inside Story of the IBM ISeries</i></a>. 29th Street Press. p. 119. <a href="ISBN_(identifier)" class="mw-redirect" title="ISBN (identifier)">ISBN</a> <bdi>978-1-58304-083-6</bdi>.</cite>.</span>
</li>
<li id="cite_note-8"><span class="mw-cite-backlink"><b><a href="#cite_ref-8">^</a></b></span> <span class="reference-text"><cite class="citation web cs1"><a rel="nofollow" class="external text" href="http://bitsavers.org/pdf/ibm/system38/SC21-7731-5_System_38_Control_Language_Reference_Manual_to_pg_4-708_198209.pdf">"IBM System/38 Control Language Reference Manual"</a> <span class="cs1-format">(PDF)</span>. IBM. 1982-09-10<span class="reference-accessdate">. Retrieved <span class="nowrap">2021-03-24</span></span>.</cite></span>
</li>
</ol></div></div>
<div class="mw-heading mw-heading2"><h2 id="External_links">External links</h2></div>
<ul><li><a rel="nofollow" class="external text" href="http://www.bitsavers.org/pdf/ibm/system38/GC21-7729-0_System_38_Control_Program_Facility_Concepts_Manual_Oct78.pdf">Control Program Facility Concepts Manual</a> (PDF file)</li>
<li><a rel="nofollow" class="external text" href="http://www.bitsavers.org/pdf/ibm/system38/SC21-7730-0_System_38_Control_Program_Facility_Programmers_Guide_Jan79.pdf">Control Program Facility Programmer's Guide</a> (PDF file)</li></ul>
<div class="navbox-styles"><style data-mw-deduplicate="TemplateStyles:r1129693374">
/* start https://en.wikipedia.org/ */
.mw-parser-output .hlist dl,.mw-parser-output .hlist ol,.mw-parser-output .hlist ul{margin:0;padding:0}.mw-parser-output .hlist dd,.mw-parser-output .hlist dt,.mw-parser-output .hlist li{margin:0;display:inline}.mw-parser-output .hlist.inline,.mw-parser-output .hlist.inline dl,.mw-parser-output .hlist.inline ol,.mw-parser-output .hlist.inline ul,.mw-parser-output .hlist dl dl,.mw-parser-output .hlist dl ol,.mw-parser-output .hlist dl ul,.mw-parser-output .hlist ol dl,.mw-parser-output .hlist ol ol,.mw-parser-output .hlist ol ul,.mw-parser-output .hlist ul dl,.mw-parser-output .hlist ul ol,.mw-parser-output .hlist ul ul{display:inline}.mw-parser-output .hlist .mw-empty-li{display:none}.mw-parser-output .hlist dt::after{content:": "}.mw-parser-output .hlist dd::after,.mw-parser-output .hlist li::after{content:" · ";font-weight:bold}.mw-parser-output .hlist dd:last-child::after,.mw-parser-output .hlist dt:last-child::after,.mw-parser-output .hlist li:last-child::after{content:none}.mw-parser-output .hlist dd dd:first-child::before,.mw-parser-output .hlist dd dt:first-child::before,.mw-parser-output .hlist dd li:first-child::before,.mw-parser-output .hlist dt dd:first-child::before,.mw-parser-output .hlist dt dt:first-child::before,.mw-parser-output .hlist dt li:first-child::before,.mw-parser-output .hlist li dd:first-child::before,.mw-parser-output .hlist li dt:first-child::before,.mw-parser-output .hlist li li:first-child::before{content:" (";font-weight:normal}.mw-parser-output .hlist dd dd:last-child::after,.mw-parser-output .hlist dd dt:last-child::after,.mw-parser-output .hlist dd li:last-child::after,.mw-parser-output .hlist dt dd:last-child::after,.mw-parser-output .hlist dt dt:last-child::after,.mw-parser-output .hlist dt li:last-child::after,.mw-parser-output .hlist li dd:last-child::after,.mw-parser-output .hlist li dt:last-child::after,.mw-parser-output .hlist li li:last-child::after{content:")";font-weight:normal}.mw-parser-output .hlist ol{counter-reset:listitem}.mw-parser-output .hlist ol>li{counter-increment:listitem}.mw-parser-output .hlist ol>li::before{content:" "counter(listitem)"\a0 "}.mw-parser-output .hlist dd ol>li:first-child::before,.mw-parser-output .hlist dt ol>li:first-child::before,.mw-parser-output .hlist li ol>li:first-child::before{content:" ("counter(listitem)"\a0 "}
/* end https://en.wikipedia.org/ */
</style><style data-mw-deduplicate="TemplateStyles:r1236075235">
/* start https://en.wikipedia.org/ */
.mw-parser-output .navbox{box-sizing:border-box;border:1px solid #a2a9b1;width:100%;clear:both;font-size:88%;text-align:center;padding:1px;margin:1em auto 0}.mw-parser-output .navbox .navbox{margin-top:0}.mw-parser-output .navbox+.navbox,.mw-parser-output .navbox+.navbox-styles+.navbox{margin-top:-1px}.mw-parser-output .navbox-inner,.mw-parser-output .navbox-subgroup{width:100%}.mw-parser-output .navbox-group,.mw-parser-output .navbox-title,.mw-parser-output .navbox-abovebelow{padding:0.25em 1em;line-height:1.5em;text-align:center}.mw-parser-output .navbox-group{white-space:nowrap;text-align:right}.mw-parser-output .navbox,.mw-parser-output .navbox-subgroup{background-color:#fdfdfd}.mw-parser-output .navbox-list{line-height:1.5em;border-color:#fdfdfd}.mw-parser-output .navbox-list-with-group{text-align:left;border-left-width:2px;border-left-style:solid}.mw-parser-output tr+tr>.navbox-abovebelow,.mw-parser-output tr+tr>.navbox-group,.mw-parser-output tr+tr>.navbox-image,.mw-parser-output tr+tr>.navbox-list{border-top:2px solid #fdfdfd}.mw-parser-output .navbox-title{background-color:#ccf}.mw-parser-output .navbox-abovebelow,.mw-parser-output .navbox-group,.mw-parser-output .navbox-subgroup .navbox-title{background-color:#ddf}.mw-parser-output .navbox-subgroup .navbox-group,.mw-parser-output .navbox-subgroup .navbox-abovebelow{background-color:#e6e6ff}.mw-parser-output .navbox-even{background-color:#f7f7f7}.mw-parser-output .navbox-odd{background-color:transparent}.mw-parser-output .navbox .hlist td dl,.mw-parser-output .navbox .hlist td ol,.mw-parser-output .navbox .hlist td ul,.mw-parser-output .navbox td.hlist dl,.mw-parser-output .navbox td.hlist ol,.mw-parser-output .navbox td.hlist ul{padding:0.125em 0}.mw-parser-output .navbox .navbar{display:block;font-size:100%}.mw-parser-output .navbox-title .navbar{float:left;text-align:left;margin-right:0.5em}body.skin--responsive .mw-parser-output .navbox-image img{max-width:none!important}@media print{body.ns-0 .mw-parser-output .navbox{display:none!important}}
/* end https://en.wikipedia.org/ */
</style></div><div role="navigation" class="navbox" aria-labelledby="Operating_systems_by_IBM311" style="padding:3px"><table class="nowraplinks mw-collapsible autocollapse navbox-inner" style="border-spacing:0;background:transparent;color:inherit"><tbody><tr><th scope="col" class="navbox-title" colspan="2"><style data-mw-deduplicate="TemplateStyles:r1239400231">
/* start https://en.wikipedia.org/ */
.mw-parser-output .navbar{display:inline;font-size:88%;font-weight:normal}.mw-parser-output .navbar-collapse{float:left;text-align:left}.mw-parser-output .navbar-boxtext{word-spacing:0}.mw-parser-output .navbar ul{display:inline-block;white-space:nowrap;line-height:inherit}.mw-parser-output .navbar-brackets::before{margin-right:-0.125em;content:"[ "}.mw-parser-output .navbar-brackets::after{margin-left:-0.125em;content:" ]"}.mw-parser-output .navbar li{word-spacing:-0.125em}.mw-parser-output .navbar a>span,.mw-parser-output .navbar a>abbr{text-decoration:inherit}.mw-parser-output .navbar-mini abbr{font-variant:small-caps;border-bottom:none;text-decoration:none;cursor:inherit}.mw-parser-output .navbar-ct-full{font-size:114%;margin:0 7em}.mw-parser-output .navbar-ct-mini{font-size:114%;margin:0 4em}html.skin-theme-clientpref-night .mw-parser-output .navbar li a abbr{color:var(--color-base)!important}@media(prefers-color-scheme:dark){html.skin-theme-clientpref-os .mw-parser-output .navbar li a abbr{color:var(--color-base)!important}}@media print{.mw-parser-output .navbar{display:none!important}}
/* end https://en.wikipedia.org/ */
</style><div id="Operating_systems_by_IBM311" style="font-size:114%;margin:0 4em"><a href="Operating_system" title="Operating system">Operating systems</a> by <a href="IBM" title="IBM">IBM</a></div></th></tr><tr><th scope="row" class="navbox-group" style="width:1%"><a href="Supercomputer" title="Supercomputer">Supercomputer</a></th><td class="navbox-list-with-group navbox-list navbox-odd hlist" style="width:100%;padding:0"><div style="padding:0 0.25em">
<ul><li><a href="INK_(operating_system)" title="INK (operating system)">INK</a></li>
<li><a href="CNK_operating_system" title="CNK operating system">CNK</a></li>
<li><a href="Red_Hat_Enterprise_Linux" title="Red Hat Enterprise Linux">Red Hat Enterprise Linux</a></li></ul>
</div></td></tr><tr><th scope="row" class="navbox-group" style="width:1%"><a href="Server_(computing)" title="Server (computing)">Server</a>, <a href="Mainframe_computer" title="Mainframe computer">mainframe</a></th><td class="navbox-list-with-group navbox-list navbox-even hlist" style="width:100%;padding:0"><div style="padding:0 0.25em">
<ul><li><a href="IBM_7090/94_IBSYS" title="IBM 7090/94 IBSYS">IBSYS</a></li>
<li><a href="BOS/360" title="BOS/360">BOS/360</a></li>
<li><a href="TOS/360" class="mw-redirect" title="TOS/360">TOS/360</a></li>
<li><a href="TSS_(operating_system)" title="TSS (operating system)">TSS/360</a></li>
<li><a href="IBM_Remote_Access_Computing" title="IBM Remote Access Computing">RAX</a></li>
<li><a href="DOS/360_and_successors" title="DOS/360 and successors">DOS/360 and successors</a>
<ul><li><a href="VSE_(operating_system)" title="VSE (operating system)">VSE</a></li></ul></li>
<li><a href="OS/360_and_successors" title="OS/360 and successors">OS/360 and successors</a>
<ul><li><a href="OS/VS1" title="OS/VS1">OS/VS1</a></li>
<li><a href="OS/VS2_(SVS)" title="OS/VS2 (SVS)">SVS</a></li>
<li><a href="MVS" title="MVS">MVS</a></li>
<li><a href="OS/390" title="OS/390">OS/390</a></li>
<li><a href="Z/OS" title="Z/OS">z/OS</a></li></ul></li>
<li><a href="History_of_CP/CMS" title="History of CP/CMS">VM line</a></li>
<li><a href="IBM_Airline_Control_Program" title="IBM Airline Control Program">ACP</a></li>
<li><a href="Transaction_Processing_Facility" title="Transaction Processing Facility">TPF</a></li>
<li><a href="Stratus_VOS" title="Stratus VOS">System/88 OS</a></li>
<li><a href="IBM_i" title="IBM i">IBM i</a></li>
<li><a href="IBM_AIX" title="IBM AIX">AIX</a></li>
<li><a href="Linux_on_IBM_Z" title="Linux on IBM Z">zLinux</a></li>
<li><a href="IBM_8100_DPCX" title="IBM 8100 DPCX">DPCX</a></li>
<li><a href="IBM_DPPX" title="IBM DPPX">DPPX</a></li>
<li><a href="System_Support_Program" title="System Support Program">SSP</a></li>
<li><a href="Special_Real_Time_Operating_System" title="Special Real Time Operating System">SRTOS</a></li>
<li><a href="Red_Hat_Enterprise_Linux" title="Red Hat Enterprise Linux">Red Hat Enterprise Linux</a></li></ul>
</div></td></tr><tr><th scope="row" class="navbox-group" style="width:1%"><a href="Desktop_computer" title="Desktop computer">Desktop</a>, <a href="Workstation" title="Workstation">workstation</a></th><td class="navbox-list-with-group navbox-list navbox-odd hlist" style="width:100%;padding:0"><div style="padding:0 0.25em">
<ul><li><a href="Textpack" class="mw-redirect" title="Textpack">Textpack</a></li>
<li><a href="IBM_PC_DOS" title="IBM PC DOS">PC DOS</a>
<ul><li><a href="DOS/V" title="DOS/V">DOS/V</a></li></ul></li>
<li><a href="PC/IX" class="mw-redirect" title="PC/IX">PC/IX</a></li>
<li><a href="IBM_AIX" title="IBM AIX">AIX</a></li>
<li><a href="OS/2" title="OS/2">OS/2</a></li>
<li><a href="IBM_RT_PC#Software" title="IBM RT PC">AOS</a></li>
<li><a href="Red_Hat_Enterprise_Linux" title="Red Hat Enterprise Linux">Red Hat Enterprise Linux</a></li></ul>
</div></td></tr><tr><th scope="row" class="navbox-group" style="width:1%"><a href="Point_of_sale" title="Point of sale">Point of sale</a></th><td class="navbox-list-with-group navbox-list navbox-even hlist" style="width:100%;padding:0"><div style="padding:0 0.25em">
<ul><li><a href="FlexOS#4680_OS" title="FlexOS">4680 OS</a></li>
<li><a href="4690_Operating_System" title="4690 Operating System">4690 OS</a></li></ul>
</div></td></tr><tr><th scope="row" class="navbox-group" style="width:1%">Projects</th><td class="navbox-list-with-group navbox-list navbox-odd hlist" style="width:100%;padding:0"><div style="padding:0 0.25em">
<ul><li><a href="Taligent" title="Taligent">Taligent</a></li>
<li><a href="Workplace_OS" title="Workplace OS">Workplace OS</a></li>
<li><a href="Project_Monterey" title="Project Monterey">Monterey</a></li>
<li><a href="Project_Trillian" class="mw-redirect" title="Project Trillian">Trillian</a></li>
<li><a href="K42" title="K42">K42</a></li></ul>
</div></td></tr><tr><th scope="row" class="navbox-group" style="width:1%">Related</th><td class="navbox-list-with-group navbox-list navbox-even hlist" style="width:100%;padding:0"><div style="padding:0 0.25em">
<ul><li><a href="Fedora_Linux" title="Fedora Linux">Fedora Linux</a></li></ul>
</div></td></tr><tr><td class="navbox-abovebelow" colspan="2"><div><span class="noviewer" typeof="mw:File"><span title="Category"></span></span> Category</div></td></tr></tbody></table></div></div><!--htdig_noindex--><div><div class="zim-footer">
This article is issued from <a class="external text" title="Last edited on 2025-06-19" href="https://en.wikipedia.org/wiki/?title=Control_Program_Facility&oldid=1296364830">Wikipedia</a>. The text is available under <a class="external text" href="https://creativecommons.org/licenses/by-sa/4.0/deed.en">Creative Commons Attribution-Share Alike 4.0</a> unless otherwise noted. Additional terms may apply for the media files.
</div>
</div><!--/htdig_noindex--></div>
</div>
</main>
</div>
</div>
</div>
</body></html>